home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n06.arc / FLOPEX.WWD < prev    next >
Text File  |  1991-03-06  |  590b  |  19 lines

  1. Sub MAIN
  2. REM:  Create a dialog record, called DRecord
  3. REM:  With fields to match those in the FileOpen Dialog Box
  4. Dim DRecord As FileOpen
  5. REM:  Now get the default values for those fields
  6. GetCurValues DRecord
  7. REM:  Set DRecord to look for all files
  8. DRecord.Name = "*.*"
  9. REM:  Highlight the first file in the list box
  10. SendKeys "{tab}{down}"
  11. REM:  If there is an error, jump to the last line 
  12. On Error Goto Skip
  13. REM:  And display the Dialog record
  14. Dialog DRecord
  15. REM:  Open the chosen file.
  16. Super FileOpen DRecord
  17. REM: The place to jump to in case of an error
  18. Skip: End Sub
  19.